﻿Public Class AnalikListe : Inherits ProcessReport

	Dim aralik As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Analık dosya listesi", "Döküm almak için tarih aralığını girin.")
				aralik = AddDateRange("Tarih", "nl", YM(Today.AddMonths(-1), "1"), YM(Today.AddMonths(-1), "2"))
			Case EventType.ValidateForm
				Rs = KisaVadeli.Analik.DosyaListesi(Local, aralik(1).get, aralik(2).get)
				Filter.Add("Yasaya göre", "yasa", "SGY:Sosyal Güvenlik,SSY:Sosyal Sigortalar")
				Filter.Add("Durumuna göre", "dosyaacik", "A:Dosya açık,K:Dosya kapalı")
				Filter.Recordset = Rs
				e.Result = True
			Case EventType.PageHeader
				Report.PrintReportInfo("ANALIK DOSYA RAPORU", "TARİH: " & FormatDateInterval(aralik(1).Get, aralik(2).Get))
				Report.SetColumns("Dosya no.;Kimlik no.;Sigorta no.;Adı soyadı;Gebelik mür.;Doğum mür.;Emzirme mür.;A/K", "2;2;2;6;2;2;2;1", "c;c;c;l;d;d;d;c", "---")
			Case EventType.ReportDetail
				For Each Row In Rs
					Report.Print(Rs("dosyano"), Rs("kimlik"), Rs("sno"), Rs("adi"), Rs("gebmurtar"), Rs("dogmurtar"), Rs("emzmurtar"), Rs("dosyaacik"))
				Next
		End Select
	End Sub

End Class
